home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / tuning / download / xteq / setup.exe / {app} / plugins / XQ Win2K NoComputersNearMe 1.xpl < prev    next >
Text File  |  2001-04-14  |  3KB  |  53 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="Appearance\Desktop\Icons\'My Network Places' Options"
  5. "NAME"="Show computers near me"
  6. "LANGUAGE"="VBScript"
  7. "TEXT 1"="Show computers near to me in My Network Places"
  8. "DESCRIPTION 1"="When you are connected to a network in Windows 2000, all the computers you are linked to will appear in My Network Places."
  9. "DESCRIPTION 2"="With this plug-in you can hide those computers that are 'near' to you. To do this, clear the tick in the box. To enable it again, place a tick in the box."
  10. "COMMENT 1"="CptSiskoX: This is for Windows 2000 networking. Plug-in perhaps?"
  11. "COMMENT 2"="Pierre: This one looks familiar. I think we already have it, with a different description."
  12. "COMMENT 3"="CptSiskoX: I don't think we have it.  I bet you are thinking of the "No Windows ME Network Crawling" one, which isn't the same, but sounds somewhat similar. Maybe that's what you were thinking of? :)"
  13. "COMMENT 4"="Pierre: I was thinking of "Network\Security\General\Workgroup Security Options", 2nd item (in 5.7). I may be mistaken, but they do look suspisciously similar."
  14. "COMMENT 5"="CptSiskoX: According to the view code tab, it shows [contents removed] for that one.  Is that the same?  If I'm wrong then sorry. <g>"
  15. "COMMENT 6"="Neil T: Although I'm using v6.0, the values in the registry are very different."
  16. "COMMENT 7"="CptSiskoX: Pierre was doing the right thing though <g> just trying to make sure we didn't waste our time doing something we'd already done.  But I think it is an entirely new setting. :)"
  17. "COMMENT 8"="Pierre: Indeed it is. My mistake, sorry :)"
  18. "COMMENT 9"="CptSiskoX: <g>  Thanks anyway Pierre.  Looks like I -finally- <g> found a new one."
  19. "VERSION"="1.1"
  20. "AUTHOR"="Neil R. Turner (totalxs@hotmail.com) for Xteq Systems"
  21. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  22. "CONTACURL"="http://www.neilrt.cwc.net/"
  23. "OSVERSION"="000101"
  24.  
  25. 'Declaration of some constants
  26. sP="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoComputersNearMe"
  27.  
  28. 'Called when the Plugin is started
  29. SUB Plugin_Initialize
  30.  s=RegReadValue(sP)
  31.  if s=0 OR IsEmpty(s) then
  32.   Call SetUIElement(1,true)
  33.  end if
  34. END SUB
  35.  
  36. 'Called when the Plugin should validate the Data the user has entered
  37. SUB Plugin_CheckData(ElementIndex)
  38. END SUB
  39.  
  40. 'Called when the Plugin should apply the changes
  41. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  42.  s=GetUIElement(1)
  43.  if s=true then
  44.   Call RegWriteValue(sP,0,2)
  45.  else
  46.   Call RegWriteValue(sP,1,2)
  47.  end if
  48. END SUB
  49.  
  50. 'Called when the Plugin is about to be removed from memory
  51. SUB Plugin_Terminate
  52. END SUB
  53.